home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / asm_msc1.arc / UP.ASM < prev    next >
Assembly Source File  |  1988-11-20  |  4KB  |  117 lines
  1. title UP - move up 1 directory level
  2. page 60,132
  3.  
  4. ;++++++++++++++++++++++++++++++
  5. ; Abstract:
  6. ;    This routine will move the
  7. ; user up one directory level. It
  8. ; will yield an error message as
  9. ; to it's success. The dos errorlevel
  10. ; parameter is used for exit. It is
  11. ; set to:
  12. ; 0 - if the up was successful
  13. ; 1 - if the user was at the top of
  14. ;     the tree when up was executed.
  15. ; 2 - If there was an error in the
  16. ;     program.
  17. ;------------------------------
  18.  
  19. ; +++
  20. ; Author:
  21. ;    Jeffrey Spidle
  22. ;    Office of Continuing Education
  23. ;    Ames,Ia 50011
  24. ;    (515)294-6222
  25. ;
  26. ; Date:
  27. ;    11 JAN 84
  28. ;
  29. ; System:
  30. ;    IBM-PC executing PC-DOS 2.0 or
  31. ;             MS-DOS 2.0
  32. ; Release:
  33. ;    1.1
  34. ; ---
  35. ;*****************************************
  36. ; Instructions:
  37. ;   To assemble link and go:
  38. ;  Masm up;
  39. ;  Link up;
  40. ;  Exe2bin up.exe up.com
  41. ;  UP
  42. ;
  43. ; This program is placed in the public domain and
  44. ; is not intended for any type of commercial sale.
  45. ; Free use and copying of this program is allowed
  46. ; provided that no fee is charged for its distribution.
  47. ;******************************************
  48. cgroup group code_seg, data_seg
  49.         assume cs:cgroup,ds:cgroup
  50.  
  51. data_seg        segment         public
  52. hello           db      'Up ok.$'
  53. cant_go_up      db      'Can',39,'t go up.$'
  54. error           db      'Up Error.$'
  55. start_path      db      '\'
  56. path_name       db      64 dup (0)
  57. data_seg ends
  58.  
  59. code_seg segment
  60.         org 100h
  61. main    proc    near
  62.         mov     si,offset cgroup:path_name ;address of where to put the
  63.                                         ; current path_name
  64.         mov     dl,0                    ; default drive request
  65.         mov     ah,47H                  ; get current path
  66.         int     21H                     ; call dos to get it
  67.         jnc     ok1                     ; call ok ?
  68.         jmp     oops                    ; nope
  69. ok1:    mov     bx,offset cgroup:path_name ; get the begining of the
  70.                                         ; path into bx
  71.         cmp     byte ptr [bx],0         ; if first char of path is a
  72.                                         ; null then we must be at the
  73.                                         ; top of the tree ==> we can't
  74.                                         ; go up from here
  75.         je      cant                    ; therefore put out a message
  76.         add     bx,64                   ; get the end of the path area
  77. loop:   cmp     byte ptr [bx],92        ; is this a \ char
  78.         je      backslash               ; it is
  79.         mov     byte ptr [bx],0         ; no then null it
  80.         dec     bx                      ; back up a char
  81.         cmp     bx,offset cgroup:path_name ; begining of string?
  82.         jne     loop                    ; nope go back up
  83. backslash:                              ; it is or found a \
  84.         mov     byte ptr [bx],0         ; get rid of the backslash
  85.         mov     dx,offset cgroup:start_path
  86.                                         ; have dx point to the new
  87.                                         ; pathname prefaced with a \
  88.         mov     ah,3bH                  ; chdir call
  89.         int     21H                     ; call dos to do it
  90.         jnc     ok2                     ; call ok?
  91.         jmp     oops                    ; nope
  92. ok2:    mov     dx,offset cgroup:hello
  93.         mov     ah,9
  94.         int     21H
  95.         mov     ax,4c00H                ; set errorcode 00
  96.         int     21H
  97.  
  98. oops:   mov     dx,offset cgroup:error
  99.         mov     ah,9
  100.         int     21H
  101.         mov     ax,4c02H                ; set errorcode 02
  102.         int     21H
  103.  
  104. cant:   mov     dx,offset cgroup:cant_go_up
  105.         mov     ah,9
  106.         int     21H
  107.         mov     ax,4c01H                ; set errorcode 01
  108.         int     21H
  109.  
  110. main    endp
  111. code_seg ends
  112.         end     main
  113.  mov     ax,4c01H                ; set errorcode 01
  114.         int     21H
  115.  
  116. main    endp
  117.